home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / trace.data < prev    next >
Text File  |  1986-07-03  |  2KB  |  114 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::trace lisp::untrace))
  7. #!
  8. (lisp::export 'lisp::step)
  9. #!
  10. (lisp::in-package 'lisp::system)
  11. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  12. 0
  13. system::*trace-level*
  14. system::*trace-list*
  15. lisp::mapcan
  16. #'system::trace-one
  17. lisp::quote
  18. (lisp::mapcan #'system::untrace-one system::*trace-list*)
  19. #'system::untrace-one
  20. lisp::*trace-output*
  21. "The function ~S is not defined.~%"
  22. "~S is a special form.~%"
  23. "~S is a macro.~%"
  24. system::traced
  25. system::trace-call
  26. "The function ~S is already traced.~%"
  27. lisp::defun
  28. (lisp::&rest system::args)
  29. system::args
  30. 2
  31. 20
  32. "~V@T~D> ~S~%"
  33. "~V@T<~D ~S~%"
  34. "The function ~S was traced, but redefined.~%"
  35. "The function ~S is not traced.~%"
  36. system::*step-level*
  37. system::*step-quit*
  38. system::*step-function*
  39. system::*old-print-level*
  40. system::*old-print-length*
  41. lisp::*debug-io*
  42. #\Newline
  43. #\Return
  44. lisp::let
  45. lisp::block
  46. lisp::unwind-protect
  47. lisp::setq
  48. lisp::return-from
  49. lisp::if
  50. lisp::let*
  51. ((system::*old-print-level* lisp::*print-level*) (system::*old-print-length* lisp::*print-length*) (lisp::*print-level* 2) (lisp::*print-length* 2))
  52. (lisp::read-line)
  53. (lisp::format lisp::*debug-io* "Type ? and a newline for help.~%")
  54. (lisp::setq system::*step-quit* lisp::nil)
  55. system::stepper
  56. "~VT~S "
  57. #\Space
  58. #\Tab
  59. #\n
  60. #\N
  61. #\s
  62. #\S
  63. #\p
  64. #\P
  65. :stream
  66. :pretty
  67. :level
  68. :length
  69. #\f
  70. #\F
  71. #\q
  72. #\Q
  73. #\u
  74. #\U
  75. #\e
  76. #\E
  77. #\r
  78. #\R
  79. #\b
  80. #\B
  81. system::*ihs-base*
  82. system::*ihs-top*
  83. system::*current-ihs*
  84. "Stepper commands:~%~
  85.         n (or N or Newline):    advances to the next form.~%~
  86.         s (or S):        skips the form.~%~
  87.         p (or P):        pretty-prints the form.~%~
  88.                 f (or F) FUNCTION:    skips until the FUNCTION is called.~%~
  89.                 q (or Q):        quits.~%~
  90.                 u (or U):        goes up to the enclosing form.~%~
  91.                 e (or E) FORM:        evaluates the FORM ~
  92.                     and prints the value(s).~%~
  93.                 r (or R) FORM:        evaluates the FORM ~
  94.                     and returns the value(s).~%~
  95.                 b (or B):        prints backtrace.~%~
  96.         ?:            prints this.~%"
  97. "~V@T=~%"
  98. "~V@T= ~S~%"
  99. "~V@T& ~S~%"
  100. 1
  101. lisp::proclaim
  102. lisp::trace
  103. lisp::untrace
  104. system::trace-one
  105. system::untrace-one
  106. system::step-read-line
  107. system::if-error
  108. lisp::step
  109. system::list-delq
  110. lisp::read-preserving-whitespace
  111. system::ihs-top
  112. system::backtrace
  113. )
  114.